home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / gs_type0.ps < prev    next >
Text File  |  1996-01-10  |  2KB  |  50 lines
  1. %    Copyright (C) 1992, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for composite font facilities.
  19. % When this is run, systemdict is still writable.
  20.  
  21. % Define findencoding.
  22. % (cshow, rootfont, and setcachedevice2 are real operators.)
  23. % .findencoding is defined in gs_init.ps.
  24. /findencoding { .findencoding } odef
  25.  
  26. % Redefine the setcachedevice step of Type1BuildChar
  27. % so that it takes Metrics2 and CDevProc into account.
  28. /setcache_C        % <charname> ? ? ? <wx> <wy> <llx> <lly> <urx> <ury>
  29.             %   setcache_C <charname> ? ? ?
  30.  { currentdict /Metrics2 .knownget
  31.     { 10 index .knownget
  32.        { aload pop
  33.      currentdict /CDevProc .knownget { 14 index exch exec } if
  34.      setcachedevice2
  35.        }
  36.        { setcache_C1
  37.        }
  38.       ifelse
  39.     }
  40.     { setcache_C1
  41.     }
  42.    ifelse
  43.  } bind def
  44. /setcache_C1        % (same as setcache_C)
  45.  { currentdict /CDevProc .knownget
  46.     { 6 index 6 index 0 0 14 index 6 -1 roll exec setcachedevice2 }
  47.     { setcachedevice }
  48.    ifelse
  49.  } bind def
  50.